home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / fileutil / belt1c.zip / BELTDEMO.BAT < prev    next >
DOS Batch File  |  1994-07-01  |  9KB  |  368 lines
  1. @echo off
  2. rem =========================================
  3.  
  4. rem =  This is a demo of the Utility_Belt
  5.  
  6. rem =  collection of the .BAT file enhancers
  7.  
  8. rem =  from Herne Data Systems Ltd.
  9.  
  10. rem =  PO Box 250, Tiverton, ON  N0G 2T0
  11.  
  12. rem =  all programs are Copyright (c) 1990-91
  13.  
  14. rem =========================================
  15.  
  16. vpstripe 0 v
  17. vpbox 0 0 0 0 6 18 21 61
  18. vpbox 0 1 7 2 5 17 20 60
  19. vpat 0 1 7 8 25 Welcome to the Utility_Belt Demo
  20. vpat 0 1 7 10 32 Brought to you by
  21. vpat 0 1 7 12 29 Herne Data Systems Ltd.
  22. vpat 0 1 7 14 25 PO Box 250, Tiverton, ON N0G 2T0
  23. tc /d
  24.  
  25. if errorlevel 7 goto sat
  26. if errorlevel 6 goto fri
  27. if errorlevel 5 goto thurs
  28. if errorlevel 4 goto wed
  29. if errorlevel 3 goto tues
  30. if errorlevel 2 goto mon
  31. if errorlevel 1 goto sun
  32.  
  33. :sun
  34. set day=Sunday
  35. goto donday
  36. :mon
  37. set day=Monday
  38. goto donday
  39. :tues
  40. set day=Tuesday
  41. goto donday
  42. :wed
  43. set day=Wednesday
  44. goto donday
  45. :thurs
  46. set day=Thursday
  47. goto donday
  48. :fri
  49. set day=Friday
  50. goto donday
  51. :sat
  52. set day=Saturday
  53. :donday
  54. vpbox 0 0 0 0 20 23 5 75
  55. vpbox 0 4 14 1 21 24 6 76
  56. vpat 0 4 14 22 14 Today is %day%
  57. vpat 0 4 14 23 14 This screen was created with VPSTRIPE, VPBOX, and VPAT
  58. vpcls 1
  59. vpcls 2
  60. vpcls 3
  61. sleep /c3
  62. vptnt 1 7
  63.  
  64. :vpboxdemo
  65. vpset 1
  66. vpcls 1 2 7
  67. vpbox 1 0 7 1 1 3 50 70
  68. vpat 1 0 7 2 55 VPBOX Demo
  69. vpbox 1 1 15 9 2 7 4 30
  70. vpat 1 1 15 4 8 This screen shows a
  71. vpbox 1 3 0 11 6 10 15 50
  72. vpat 1 3 0 8 20 number of windows created
  73. vpbox 1 4 14 6 15 19 30 70
  74. vpat 1 4 14 17 40 with the VPBOX command.
  75.  
  76. sleep /c2
  77. vpbox 1 7 1 4 12 19 2 27
  78. vpat 1 7 1 14 4 There are 26 styles
  79. vpat 1 7 1 16 4 of borders to choose
  80. vpat 1 7 1 18 4 from!!
  81. sleep /c1
  82. vpbox 1 6 15 5 11 14 51 78
  83. vpat 1 6 15 12 53 The text is added with
  84. vpat 1 6 15 13 53 the VPAT command.
  85.  
  86. sleep /c1
  87. vpbox 1 0 0 0 20 22 6 50
  88. vpbox 1 5 7 18 21 23 7 51
  89. vpat 1 5 7 22 15 Press any key to continue ...
  90. getkey a
  91. vpbh 1 7 s
  92.  
  93. :vpstripedemo
  94. vpstripe 0 h
  95. vpset 0
  96. vpbox 0 0 7 1 1 3 50 70
  97. vpat 0 0 7 2 55 VPSTRIPE Demo
  98. vpbox 0 4 14 1 21 24 6 76
  99. vpat 0 4 14 22 14 This is VPSTRIPE in horizontal rainbow mode.
  100. vpat 0 4 14 23 14 Other modes are available.  Press a key to see...
  101. getkey a
  102. vpstripe 0 v 1 13
  103. vpbox 0 0 7 1 1 3 50 70
  104. vpat 0 0 7 2 55 VPSTRIPE Demo
  105. vpbox 0 4 14 1 21 24 6 76
  106. vpat 0 4 14 22 14 This is VPSTRIPE in vertical two color mode.
  107. vpat 0 4 14 23 14 Press a key to continue ...
  108. getkey a
  109.  
  110. :vpbhdemo
  111. vpbh 2 7 s
  112. vpbox 0 4 14 1 21 24 6 76
  113. vpat 0 4 14 22 14 The screen clearing special effects are provided by
  114. vpat 0 4 14 23 14 VPTNT (explosion) and VPBH (black hole)
  115. sleep /c2
  116.  
  117. vpbox 0 7 1 4 12 18 2 27
  118. vpat 0 7 1 14 4 The time delays are
  119. vpat 0 7 1 16 4 provided by SLEEP
  120. sleep /c1
  121.  
  122. vpbox 0 6 15 5 10 15 51 78
  123. vpat 0 6 15 12 53 The keyboard input
  124. vpat 0 6 15 13 53 is by GETKEY
  125. sleep /c1
  126.  
  127. vpbox 0 1 7 19 1 7 1 30
  128. vpat 0 1 7 3 5 Sound effects by
  129. vpat 0 1 7 5 5 BLEEP 
  130. bleep 1 349 2 1;1 392;1 440;1 523 2 4;1 523 4 1;1 587 2;1 523;1 440 2 4;1 349 4 1;1 392 2;2 440;1 392;1 349 2 2;1 392 8 1;
  131.  
  132. vpbox 0 0 13 3 3 8 40 70
  133. vpat 0 0 13 5 45 Press any key
  134. vpat 0 0 13 6 45 to continue . . .
  135. getkey a
  136.  
  137. vpcls 2 4 14
  138. vpbox 2 0 13 1 21 24 6 76
  139. vpat 2 0 13 22 8 The menu display on this screen was created with the command:
  140. vpat 2 0 13 23 8 SELECT Demo Items; VPSTRIPE; VPTNT; VPFLIP; VPCOPY; VPSET; VPBOX
  141.  
  142. :selectdemo
  143. vpbox 2 0 7 1 0 2 50 70
  144. vpat 2 0 7 1 55 SELECT Demo
  145.  
  146. vpset 2 3
  147. select Demo Items; VPSTRIPE; VPTNT; VPFLIP; VPCOPY; VPSET; VPBOX
  148. if errorlevel 6 goto item6
  149. if errorlevel 5 goto item5
  150. if errorlevel 4 goto item4
  151. if errorlevel 3 goto item3
  152. if errorlevel 2 goto item2
  153. if errorlevel 1 goto item1
  154.  
  155. vpbh 0 13
  156. vpbox 2 0 0 0 6 10 21 61
  157. vpbox 2 1 7 2 5 9 20 60
  158. vpat 2 1 7 7 25 You pressed the 'Esc' key
  159. sleep /c2
  160. goto contdemo
  161.  
  162. :item1
  163. vpstripe 2 v 1 4
  164. vpbox 2 0 0 0 6 10 21 61
  165. vpbox 2 1 7 2 5 9 20 60
  166. vpat 2 1 7 7 25 You pressed the 'A' key
  167. vpbox 2 4 14 1 21 24 6 76
  168. vpat 2 4 14 22 14 These stripes are created with the command:
  169. vpat 2 4 14 23 14 VPSTRIPE 2 V 1 4
  170.  
  171. sleep /c2
  172. goto moredemo
  173.  
  174. :item2
  175. vptnt 1 7
  176. vpbox 2 0 0 0 6 10 21 61
  177. vpbox 2 1 7 2 5 9 20 60
  178. vpat 2 1 7 7 25 You pressed the 'B' key
  179. vpbox 2 4 14 1 21 24 6 76
  180. vpat 2 4 14 22 14 The explosion was created with the command:
  181. vpat 2 4 14 23 14 VPTNT 1 7
  182. sleep /c2
  183. goto moredemo
  184.  
  185. :item3
  186. vptnt 1 7
  187. vpbox 2 0 0 0 6 10 21 61
  188. vpbox 2 1 7 2 5 9 20 60
  189. vpat 2 1 7 7 25 You pressed the 'C' key
  190. vpbox 2 2 14 1 21 24 6 76
  191. vpat 2 2 14 22 8 Excuse me while I setup the video pages for the
  192. vpat 2 2 14 23 8 video page flipping demo.
  193.  
  194. vpstripe 0 h
  195. vpbox 0 0 0 0 6 10 21 61
  196. vpbox 0 1 7 2 5 9 20 60
  197. vpat 0 1 7 7 25 This is video page 0
  198. vpat 0 0 15 20 20   It is the normal DOS default page.
  199.  
  200. vpcls 1 2 13
  201. vpbox 1 0 0 0 6 10 21 61
  202. vpbox 1 1 7 2 5 9 20 60
  203. vpat 1 1 7 7 25 This is video page 1
  204. vpat 1 2 15 15 10 You may want to display a help message on this page
  205.  
  206. vpcls 3 4 7
  207. vpbox 3 0 0 0 6 10 21 61
  208. vpbox 3 1 7 2 5 9 20 60
  209. vpat 3 1 7 7 25 This is video page 3
  210. vpat 3 4 7 13 5 You can flip between pages instantly.  In any order you choose!
  211.  
  212. vpbox 2 0 0 0 6 10 21 61
  213. vpbox 2 1 7 2 5 9 20 60
  214. vpat 2 1 7 7 25 This is video page 2
  215. vpat 2 1 7 19 20   Each page can hold different text.
  216.  
  217. vpflip 2 3 0 1
  218. goto moredemo
  219.  
  220. :item4
  221. vpcls 2 1 7
  222. vpbox 2 0 0 0 6 10 21 61
  223. vpbox 2 1 7 2 5 9 20 60
  224. vpat 2 1 7 7 25 You pressed the 'D' key
  225. vpbox 2 4 14 1 21 24 6 76
  226. vpat 2 4 14 22 14 The VPCOPY command lets you SAVE and recall entire screens.
  227. vpat 2 4 14 23 14 With VPCOPY 2 0, this page is being copied to page 0 ...
  228. vpcopy 2 0
  229. sleep /c2
  230.  
  231. vpset 0
  232. vpbox 0 4 14 1 21 24 6 76
  233. vpat 0 4 14 22 14 You are now on page 0. If we go to page 1, we
  234. vpat 0 4 14 23 14 can watch the copying take place with VPCOPY 2 1
  235. sleep /c2
  236.  
  237. vpstripe 1 h
  238. vpset 1
  239. vpcopy 2 1
  240. vpbox 1 4 14 1 21 24 6 76
  241. vpat 1 4 14 22 14 Neat, eh?
  242. vpat 1 4 14 23 14 Press any key to get back to page 2 ...
  243. getkey a
  244. vpset 2
  245. goto moredemo
  246.  
  247. :item5
  248. vptnt 1 7
  249. vpbox 2 0 0 0 6 10 21 61
  250. vpbox 2 1 7 2 5 9 20 60
  251. vpat 2 1 7 7 25 You pressed the 'E' key
  252. vpbox 2 4 14 1 21 24 6 76
  253. vpat 2 4 14 22 14 You are now in video page 2.  With the command VPSET 0,
  254. vpat 2 4 14 23 14 you will be sent to video page 0.
  255.  
  256. sleep /c2
  257. vpset 0
  258. vpbh 2 0
  259. vpbox 0 4 14 1 21 24 6 76
  260. vpat 0 4 14 22 14 Hi there, you are now in video page 0.
  261. vpat 0 4 14 23 14 Press any key to get back to page 2 ...
  262. getkey a
  263. vpset 2 23
  264. sleep /c2
  265. goto moredemo
  266.  
  267. :item6
  268. vptnt 1 7
  269. vpbox 2 0 0 0 6 10 21 61
  270. vpbox 2 1 7 2 5 9 20 60
  271. vpat 2 1 7 7 25 You pressed the 'F' key
  272.  
  273. vpat 2 1 7 15 20 Of course, this box was created with VPBOX
  274. sleep /c2
  275.  
  276. :moredemo
  277. vpcls 2 4 14
  278. vpbox 2 2 14 1 21 24 6 76
  279. vpat 2 2 14 22 8 Try some of the other menu items.
  280. vpat 2 2 14 23 8 Then press 'Esc' to continue with the demo.
  281. goto selectdemo
  282.  
  283. :contdemo
  284. vptnt 3 14
  285. vpbox 2 0 0 0 6 11 21 61
  286. vpbox 2 1 7 2 5 10 20 60
  287. vpat 2 1 7 7 32 Now for something
  288. vpat 2 1 7 8 30 completely different.
  289. sleep /c1
  290.  
  291. :secure
  292. vpcls 0 1 7
  293. vpset 0
  294.  
  295. vpat 0 1 7 1 5 We will try some of the security utilities ...
  296. vpat 0 1 7 23 5 (Press 'Esc' to end the demo)
  297. vpset 0 5
  298. select Security Program;HANG;REBOOT;WHATIS
  299. if errorlevel 3 goto whatis
  300. if errorlevel 2 goto reboot
  301. if errorlevel 1 goto hang
  302. goto exit
  303.  
  304. :reboot
  305. vptnt 4 7
  306. vpbox 0 0 0 0 4 9 21 61
  307. vpbox 0 1 7 2 3 8 20 60
  308. vpat 0 1 7 5 25 REBOOT will reset your
  309. vpat 0 1 7 6 25 computer...
  310. vpset 0 11
  311. confirm Reboot the computer
  312. if errorlevel 1 goto secure
  313. vpcls 0 4 7
  314. vpset 0 5
  315. reboot OK, here goes ...
  316.  
  317. :hang
  318. vptnt 3 0
  319. vpbox 0 0 0 0 4 9 21 61
  320. vpbox 0 1 7 2 3 8 20 60
  321. vpat 0 1 7 5 25 HANG will lockup your
  322. vpat 0 1 7 6 25 computer completely...
  323. vpset 0 11
  324. confirm Lockup the computer
  325. if errorlevel 1 goto secure
  326. vpcls 0 4 7
  327. vpat 0 1 7 23 10 (I turned off the alarm for you first)
  328. vpset 0 5
  329. hang /q You will have to do a hard boot now ...
  330.  
  331. :whatis
  332. vptnt 2 7
  333. vpbox 0 0 0 0 6 11 21 61
  334. vpbox 0 1 7 2 5 10 20 60
  335. vpat 0 1 7 7 25 WHATIS tells you about
  336. vpat 0 1 7 8 25 your disk drives...
  337. sleep /c2
  338. whatis a
  339. vpat 0 0 7 23 5 (Press any key to continue...)
  340. getkey a
  341. goto secure
  342.  
  343.  
  344. rem === exit back to dos
  345. :exit
  346. vpcls 0
  347. vpset 0
  348. vptnt 4 14
  349.  
  350. vpbox 0 0 0 0 6 17 21 61
  351. vpbox 0 3 15 2 5 16 20 60
  352.  
  353. vpat 0 3 15 8 25 ╥  ┬
  354. vpat 0 3 15 9 25 ║  │
  355. vpat 0 3 15 10 25 ╠══╡ ╔═╕ ╔═╕ ╔═╕ ╔═╕  Data
  356. vpat 0 3 15 11 25 ║  │ ╟─┘ ║   ║ │ ╟─┘  Systems
  357. vpat 0 3 15 12 25 ╨  ┴ ╚═╛ ╨   ╨ ┴ ╚═╛  Ltd.
  358. vpat 0 3 15 13 25 Software worth hunting for!!
  359.  
  360. vpbox 0 0 0 0 20 23 12 72
  361. vpbox 0 1 7 2 19 22 11 71
  362. vpat 0 1 7 20 20 Thank you for trying the Utility_Belt Demo
  363. vpat 0 1 7 21 25 from Herne Data Systems Ltd
  364. sleep /c4
  365. vpcls 0
  366. asp
  367.  
  368.